home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aan.d64
/
proc.set
< prev
next >
Wrap
Text File
|
2007-02-28
|
312b
|
13 lines
0010 //
0020 ╨╥╧├ SET ├╠╧╙┼─
0030 ╒╙┼ FONT
0040 ─╔═ CHAR$ ╧╞ 8
0050 ╞╧╥ CH#:=0 ╘╧ 127 ─╧
0060 ╞╧╥ FNT#:=0 ╘╧ 1 ─╧
0070 GETCHARACTER(FNT#,CH#,CHAR$)
0080 CHAR$(8):=├╚╥$(255) // SET UNDERLINE
0090 PUTCHARACTER(FNT#,CH#+128,CHAR$)
0100 ┼╬─╞╧╥ FNT#
0110 ┼╬─╞╧╥ CH#
0120 ┼╬─╨╥╧├ SET